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MODULE UTILSCHK_CLI ( 
— = 'v04-000' ! File: UTLCHKCLI.832 Edit: PDG3001 
= 


BEGIN 


MASSER SSLILILS ITE I TTT ET TTT TT TT Tere r tiie c iti iirc iri iii iii iiiiiititiiiiie 


:* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
:* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'# ALL RIGHTS RESERVE 


S SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND cor ree 
Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
LUSION OF TH ARE 0 Y R 


at II IOOO 


kt tt 
CNAME WIN SO OD NOUN EWN SO ODNAUN EWN (OO ONOU EAN OOOO EW 


MEUM $9 OBNOAUEUN —OODNOUE WN (OO DNOUS WN 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
+ eompokatitn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


. 
= 
fe 
® 
® 
e 
* 
r 
® 
' * 
ie TRANSFERRED. “ 
co 
® 
® 
cs 
of 
* 
® 
® 
® 
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ESSE EE LISTS TESTE TT TTT TTT TTT cece ec ccc c eee c critic i ii citi iii iii iiiie) 
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VAX=11 CHECKPOINT/RESTART 
VAX=11 CLI 


pata tatatatatatatotatatatatetatatetotatototatetatetot=t=tat= 


i ABSTRACT: 


' 

' 

' 

' 

' 

' 

' 

' 

; This module contains routines that can be used by a checkpointed 
subprocess to obtain CLI information from a parent process. 
' 

' 

' 

' 

' 

' 

' 
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40 i 

41 004 | ENVIRONMENT: VAX/VMS user mode 

43 4 i AUTHOR: Peter D Gilbert, CREATION DATE: 17-Oct-1983 
45 i MODIFIED BY: 
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ee 

i FACILITY: VAX-11 SORT/MERGE 
| 
| 
| 


ore 7 
6 
voe-000°" VESepct9Ee OQ48:02  YANGIE, BLUsECHE Mee ne 3 


$S 


3 9 1 LIBRARY ‘SYSSLIBRARY:LIB'; 3 
‘ ! REQUIRE ‘SRC$:SORMSG'; | : 
: § 1 FORWARD ROUTINE | : 
; é : : Global routines that interface to the CLI | : 
: 1 CLI_BEGIN ' Setup CLI processin | ; 
: 38 $j} GtT BEGIN ue, i Get value of ite : 
3 9 4 1 CLI-PRESENT ! Determine if item is present 3 
; @& 2 CLI-NEXT_QUAL, ! Get next qualifier 3 
: 6) $ : CLILE D, ! End CLI processing : 
: es : : | Utility routines : 
: 65 40 1 iNIT_MBX: NOVALUE, ! Initialize mailbox ; 
; 66 0241 1 GET_SYS_LOG: NOVALUE, ! Translate system logical 3 
; of 8 og : CLI-CHECKPOINT; ! Field requests : 
: 69 0244 1 EXTERNAL ROUTINE : 
3 0 0245 1 STRSCOPY_R: ADDRESSING_MODE (GENERAL), é 
: 71 0 28 1 CHKSCHKPRT : ADDRESSING _MODE(GENERAL) WEAK, 3 
3 7 024 1 LIBSSYS_TRNLOG: ADDRESSING_MODE (GENE . $ 
3 or 8 rt : STRSCOPY_R: DDRESSING_MODE (GENERAL) ; : 
: 75 50 1 EXTERNAL LITERAL 
: 76 51 1 CLIS_FACILITY, 
3 77 26 1 CLIS_SPAWNED, 
3 78 025 1 CLIS_INVREQTYP, 
a, 0254 1 CHKS$_NOTINIT: WEAK; 
3 80 8 55 1 
3 81 2$ 1 LITERAL FALSE = 0; 
3 Hf 0257 1 LITERAL TRUE = 1; 
3 8 58 1 MACRO BASE_ = 0,0,0,0 2: 
3; 84 59 1 MACRO ELIF = ELSE {fF 2%: 
: 33 0 re 1 MACRO STR_MAILBOX = *SORTMERGE_MBX' 2%; ! Mailbox name 
; 87 6 6¢ 1 
; 8 65 1 ! Define the format of a message 
; 64 1! 
3 90 65 1 FIELD 
: 91 66 1 MSG_FIELDS = 
3 36 67 1 SET 
; 9 $8 1 MSG_L_ID= 0,0, 8 ° ! Message ID 
; 9% $ 1 MSG_L_STS= 4,0,32,0], ' Returned status of request 
; 0 1 MSG_L_RQST= g. -32,0), ' Request code 
3 ae 7 7 MSG_L_LEN= 12,0,32.0), ' Length of following text 
Mit 7g RSG_ALTXT= 16.0.32.0 i Start of text | 
; 39 74 1 LITERAL MSG_K_TEXT= o26: ! Largest text size 
: 190 75 1 LITERAL MSG_K SIZE= F EL DEXPAND (MSG_A TXT,0) + MSG_K_TEXT; ! Size in bytes 
; 101 7 1 MACRO MSG BCOCK= BLOCKEMSG K_ SIZE(BYTE) FIELD(MSG_FIELDS) B: 
; ‘ L , UMESSAGE("MSG_K_SIZE = ', XNUMBERTMSG_K_SIZE)) 
: 4 79 1! Values of MSG_L_ID | 
3s 105 » oe 
: 1 1 1 LITERAL | 

} 

| 

| 
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UTILSCHK_CLI 16-Sep-1984 00:48:09 AX=11 Bliss-32 V4.0-74 P ; UT 
vourbo0 1e-8eb- 1984 §S:t8s56 — Pedatdo°snesurecmeeT 2:1 ase 35 v0 
! MSG$_DELPROC = whatever 
MSG_R_CHKCLI = MSG$_DELPROC + 1; 
! Values of MSG_L_RQST 
LITERAL 
MSG_K_GET VALUE = 1, 
MSG_K-PRESENT s ¢° 
MSG_K-NEXT_QUAL = 3, 
G_K_END = 4; 


MBX_CHAN: WORD, ! Mailbox channel 
X_UNIT Mailbox uni 
' 


t 
! True if a checkpoint subprocess 
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mB , 

CHK“SUBP: BYTE 

MSG: MSG_BLOCK; i Message block 
0 BIND 

CLIS_SHR_SYSERROR = SHRS$_SYSERROR + STSSK_SEVERE + CLIS_FACILITY * 16, 
0 CLIS-SHRBADLOGIC = SHRSBADLOGIC + STSSKTSEVERE + CLIS“FACILITY * 16: 


vot-b00 cll 16-0 Sat La Pe Peg Tee ert 
GLOBAL ROUTINE CLI_BEGIN 


IMAGE _AP: REF SBBLOCK, ! AP of main routine 
CHK _POINT ! True is checkpointing was specified 
= 


Oo 
MEW 


STATUS; 
Determine whether we're a checkpoint subprocess 


co UPwn— 


fe 
CH WITCHES DEBUG) 4 XTHEN 
K_POINT EQL CLI$_INVREQTYP 


THENS 
CHK_SUBP = TRUE; 
XELS 
IF CHKSCHKPNT NEQ 0 
THEN 
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a a ee a ss st 


BEGIN 
STATUS = CHKSCHKPNT(); 
IF » STATUS AND .STATUS NEQ CHKS -NOTINIT THEN CHK_SUBP = TRUE; 


FI ; 
If we're a checkpoint subprocess, call the CLI through a mailbox 
if .CHK_SUBP 
THEN 

INIT _MBX() ! Attach to the communication mailbox 
FUE - CHR_POINT 
wr on ent TtCene = CLI_CHECKPOINT(IMAGE_APCBASE_J)) ! Create subprocess 
; ! Just continue normally 


RETURN SS$_NORMAL; 
END; 
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~ TITLE vite see Cul 
-IDENT \v04-000% 


~PSECT SOWNS,NOEXE ,2 
00000 MBX_CHAN: 
"BLK KB 5 
4 


tt MBX _UNIT: 


00008 CHK_SUBP: 
-BLKB 


0009 -BLKB 

itt MSG: -BLKB 370 
.EXTRN STRSCOPY R, LIBSSYS_TRNLOG 
-EXTRN CLIS_FACTLITY, CLIS$= te 


; Routine Size: 57 bytes, Routine Base: S$CODE$S + 0000 
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UTILSCHK_CLI 16-Sep-1984 00:48:09 AX-11 Bliss-32 V4.0-74 Page 5 
vitae tt 1 ~300n 138% 90:48:92 SORT32.SRC UFecMRerT BS2s1 . (3) 
~EXTRN CLIS_INVREQTYP, SYSSEXIT 3 
wWEA CHKSCHKPNT, CHKS_NOTINIT : 
-PSECT S$CODES,NOWRT,2 : 
saat 00 ENTRY CLI_BEGIN, gees R2 : 0302 : 
52 0000' ce F 0 CHK_SUBP, R : F 
29 $ CLRB CHK_S 3 0313 3 
00000000G 8F 08 A D1 CMPL SIR POINT. #CLIS_INVREQTYP ; 0315 $ 
8 1 ae BNEQ % : 3 
5 > £9 00018 18: BeBe. CHK SUBP vos : 3339 
0000v CF 05 FB O18 CALLS #0, INIT_MBX : $333 3 
1 3 BRA 3$ : 3 
11 08 AC €E9 00020 2$ CHK_POINT, 3$ 3; 0332 1 
04 AC 0D 00024 PUSHL IMAGE_AP 3 0334 3 
0000v CF 9} FB 00027 CALLS #1, CCI_CHECKPOINT : 3 
USHL : 3 
0 db 0002C PUSH RO : 
00000000G 00 01 FB 000 f CALLS #1, SYSSEXIT ; : 
50 01 bdO 00035 3$ MOVL #1, RO ; 0338 ; 
04 00038 RET ; 0339 ; 


1 ~~ ee CLILEND = 
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; Routine Size: 


$s routine is called after all other calls to the CLI_xxx routines. 
is called by a main process only if no checkpointing is requested. 
is called by a checkpointed subprocess. 


AL 

STATUS; 
IF NOT .CHK_SUBP THEN RETURN SS$_NORMAL; 
Deassign the channel to the mailbox 


STATUS = SDASSGN(CHAN=.MBX_CHAN) ; 
IF NOT .STATUS THEN RETURN™ STGNAL(CLIS. SHR_SYSERROR, 0, .STATUS); 


RETURN SS$_NORMAL; 
END; 


-EXTRN SYSSDASSGN 


0000 00000 .ENTRY CLI_END, Save nothing 
21 0000' CF E9 90002 BLBC CHK = SuBP. 1$ 
E 0000" CF 3¢ 0000 MOVZWL MBX-CHAN, =(SP) 
000000006 00 01 FB 9000¢ CALLS #1, ~SYSSBASSON 
12 50 €8 0001 STATUS, 1$ 
50 DD 00016 PUSHL ATUS 
7E D4 00018 CLRL. = = (SP) 
00000000* 8F DD D001, PUSHL w<CLIS FACILITY@16>+4532> 
000000006 00 03 FB 9020 CALLS IBSSIGNAL 
04 00027 RET 
50 01 DO 00028 1$ MOVL » RO 
04 00028 RET 


Routine Base: S$CODE$ + 0039 
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I$_SHR_SYSERROR, 0, 
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UTILSCHK_CLI 16-Sep-1984 00:48:09 AX-11 Bliss-32 V4.0-74 Page 9 
v04-000 13-808-1382 90:78:02 eORTS2 SRE UTLCHKCLI.852;1 . (6) | 
$ 0 4 1 ! These routines are used as an interface to the CLI. 
: 1 4 1! If sort is _runn "9 as a checkpoint subprocess, there is no CLI. 
; § ri Z : These routines allow us to pass information to the subprocess. 
; 4 M0425 1 MACRO GEN CLI RTN_(RTN) = 
; 5 M 04 § 1 ZNAMET'CLT_' ,RTN) 
; 6 M 04 1 ( 
3 57 M 04 8 1 NAME: REF $BBLOCK 
3 58 M 8 1 RIF ZIDENTICAL(RIN, "GET_VALUE') %THEN ,RETBUF: REF SBBLOCK %F1 
; 259 M0450 1 )= 
: 260 40431 1 EGIN 
; 20) M 04 ¢ 1 BUILTIN 
3 o¢ M 04 1 CALLG, AP; 
; $e M0434 1 LOCAL 
3; 264 M0435 1 STATUS; 
3; 265 M 04 $ 1 
: 66 M 04 1 ' Are we are a checkpoint subprocess? 
; 267 M0438 1 ! 
; 268 M0439 1 IF .CHK_SUBP 
; 269 M0440 1 THEN 
3 sf M0441 1 BEGIN 
3 71 M Bees 1 ! 
; sié M0443 1 ! Ask the main process for this. 
; af M0444 1 ! 
; 274 ™ 0445 1 MBX _PUT_(ZNAME('MSG_K_°,RTN), NAME); 
s 275 ™ Bees 1 MBX_GET_(ZNAME ("MS . ° 
; 276 M0447 1 LIF -XDECLARED(RETBUF) XTHEN RETBUFCBASE_J %F1); 
; 277 M0448 1 STATUS = .MSGCMSG_L_STS); 
s ee M0449 1 N 
; 279 ™ 0450 1 ELSE 
; 280 m 0451 1 BEGIN 
; 281 i.) at) 1 ! 
; oes . 8327 ! } Get the value from the CLI directly 
3 Spi m 0455 1 EXTERNAL ROUTINE ZNAME (*CLIS* -RTN): ADDRESSING_MODE (GENERAL) ; 
s 2385 M0456 1 ZIF XIDENTICAL(RTN, 'NEXT_QUAL’) ' Hack for CLISNEXT_QUAL 
: 286 m 0457 1 X THEN 
; 287 m 0458 1 OWN FIRST: BYTE INITIAL(TRUE); 
; 288 m 0459 1 IF ZNAME('CLIS$',RTN) EQL 0 
: 289 ™ 0460 1 THEN 
: 290 m 0461 1 BEGIN 
: 91 4 bees 1 STATUS = .FIRST; 
3 44 m 04635 1 FIRST = FALSE; 
; M beee 1 END 
: 294 m 0465 1 ELSE 
3s 2 mM 0466 1 
: 296 ® 0467 1 STATUS = CALLG(.AP, %NAME('CLI$',RIN)); 
: 297 ™ 0468 1 3 
; 298 i] og? 1 RETURN .STATUS; 
; 299 0 1 ND 2%; 
; 500 471 1 GLOBAL ROUTINE GEN_CLI_RTN_('GET_VALUE'); 
~-EXTRN SYSS$QIOW, CLISGET_VALUE 
01FC 00000 -ENTRY CLI_GET_VALUE, Save R2,R3,R4,R5,R6,R7,R8 ; 0471 


7 
UTILSCHK_CLI 1b-5¢ -1984 00:48:09 AX-11 Bliss-32 V4.0-74 P 1 
v04=000 eet Pa Set a PD kt et aoe 19 
06 E MOVAB SYS$QIOW, RB ; : 
; 200009006 88 ee p MOVAB LIBSSIGNAL, R7 : ; 
6 cr MOV SG, R6 : : 
; 8 C 1 SUBL2 #8, SP : : 
0 FC AG 5 1 BLBS CHK SUBP, 1$ : ; 
0c 1 0001C BRW 0s : : 
08 As 1 D9 iF 1% MOVL #1, MSG+8 : ; 
af 0% 85 Be 00057 movew. ROO, RY ee 
0100  8F ST BT 000A CMPW RT, #256 : | : 
5 1B F BLEQU 2 : : 
51 0100 BF 3 1 MOVZWL #256, R1 : : 
OC Ab 1 2$: OVL R11, MSG+12 : : 
10 Ab 04 B80 1 003A MOVC3) R1. @4(RO), MSG+16 : 
7E 7C 0049 CLRQ. = = (§P) : 
7E 7C€ 0004 CLRQ. = (SP) : 
7E Oc Ab 10 C1 00044 ADDL3 #16, MSG+12, =(SP) : 
36 bp 0049 PUSHL 6 : 
—E 7C 00048 CLRQ. = =(SP) : 
20 AE 9F 00040 PUSHAB 10SB ; 
3 bp 00050 PUSHL #48 : 
7E F4 AG 3C 00052 MOVZWL MBX_CHAN, (SP) : 
7E D4 00056 CLRL 5isP) : 
68 OC FB 00058 CALLS #12, SYS$QIOW : 
0 50 Eg 00098 BLBC Os«S,-:«8$ ; 
5 6 A 000 E MOVZBL 10SB, S$ : 
0D E8 00061 BBS ses Ss, «4$ ; 
50 DD 00064 3$ PUSHL 5 : 
7E D4 00066 CLRL -(SP) 3 
00000000" 8F ODD 00068 PUSHL #<<CLI$_FACILITY@16>+4532> : 
67 03 FB 0006E CALLS #3, LIBSSIGNAL : 
E 7C 00071 4$ LRO 0s = §P) ; 
7E 7 0073 LRQ ss =( SP) : 
7E 0110 8F 3¢€ 0007 MOVZWL #272, -(SP) : 
56 DD OO7A PUSHL R6 : 
7E 7C 0007C CLRQ. = SP) : 
24 AE OF OO07E PUSHAB 10SB : 
31 pp 00081 PUSHL #49 : 
7E F4 A6 C BobgF MOVZWL MBX_CHAN, -(SP) 3 
7E D4 008 TT : 
68 o¢ FB 0089 CALLS #12, SYS$QIOW : 
07 E 008C BLBC § : 
0 04 AE 9A O08F MOVZBL 10SB, $ : 
0D E8 09 3 BLBS sé Ss, -«6$ : | 
DD 3% 5$: PUSHL F 
E D4 0009 CLRL = (SP) : | 
00000000* i DD 0009A PUSHL &#<<CLI$_FACILITY@16>+4532> : 
67 3 FB 00 AQ CALLS #3, LIBSSIGNAL : 
03 66 D1 OOOAS 6$: CMPL MSG, # : 
1 1 Ne BNEQ © 7$ : 
7E 04 a6 10000000 ef C BISL3 4268435456, MSG*4, -(SP) : 
000000006 00 01 FB 8} CALLS #i, SYSSEXIT : | 
Py | 
04 66 D| BA 7$: CMPL MSG, #4 : | 
6 BD BNE : | 
01 08 AB D 0 BF CMPL MSG+8, #1 : 
09 13 000C3 BEQL )«=sé9S : | 


; Routine Size: 
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GEN_CLI_RTN_('PRESENT'); 


Oru ovwvr COMMUN 
oon OO WMONO 


> 
o 


67 


oO 
= 


NIAMS VOM OM MIOWS ONO NNN IW" DWI OwWMonowoon 


80 Save R2,R3,R4,R5,R6,R7,R8 
LIBSSIGNAL, R7 
MSG, R6 
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Pee Se Se Se Se Se Se Se Oe Se Se Se Se Se Be Be Se Be He Be Oe Be Be Be Be Be Be Be Oe Be Oe Se Se Be Be . 


Ne ee oe wp pe ele fe lo lolololololololol~o) 


AOWOOODS £IOOF ODL OG BOYS ("OOWOOD "NOOO @rymmmna 


SMO INI SIVIVIO VIO NP AS NU SINIVMIMIDOVIE FS OW POOMOO 


SOOOOOCOoOoOoOoOoOoOoOoOSoSooOSoSoSo 


MOOMMMAMOOMoO 


Se 
o> 


UTILSCHK CLI 


1 
1 
24 AE OF 7 
ai Bo 
7E FL ASCOSE 
7E 04 
0 18 Bane 
§ C 
0 046 =#OA A 5 
D E8 
DO 88 
E D4 9 
00000000" 8F DD 9A 
$7 3 fe A 
3 § ) A 
1 i A 
7E 04 A6 10000000 af C A 
000000006 00 1 FB 00081 
14 11 00088 
04 66 D1 ers 
6 12 00080 
02 08 ag D1 OOOBF 
13 itt 
00000000" 8F DD 45 
67 1 FB 000CB 
50 04 A6 00 Q00C 
04 0000 
000000006 00 6C FA 000D 
04 OOODA 
; Routine Size: 219 bytes, Routine Base: S$CODE$ + 0150 
3s 32 0473 1 GLOBAL ROUTINE GEN_CLI_RTN_("NEXT_QUAL"); 


Coat 
eur: 
"Ho t 
om . 0100 : 


01 


O5t¢ ne 


9 


woown 
=—rOO—orm 


i 


0011C 


a et a 


= POW NO 


é-s ? 
Sep-19be 19:10:56 


10$: 


FIRST: 


1$: 


PUSHAB 


-PSECT 
-BYTE 


AX-1 Bi ies =32 V4.0-74 
SORT3S2. $Re} UTLCHKCLI.852;1 


Lose 
yA 

MBX CHAN, -(SP) 
#12, SYS$QI0W 
s, 5$ 

1688, $ 
S, 6$ 


=(SP) 
baat FACILITY816>+4532> 
LIBSSIGNAL 
ng 36, 4 
peg tet 
, SYSSEXIT 
MSG, #4 
MSG+8, #2 
#<<CLIS_FACILITY@16>+4388> 
1, LIBSSIGNAL 
MSG+4, STATUS 
(AP), CLISPRESENT 


MSG+4, -(SP) 


SOWNS ,NOEXE , 2 

1 

CLISNEXT_QUAL 

SCODES ,NOWRT 2 

CLI_NEXT QUAL. + Save R2,R3.R4,R5,R6,R7,.RB,RO 


CLISNEXT—QUA 
SYS$Q10W 


LIBSSIGNAL, R? 
MSG, R6 


#8, SP 
CHK_SUBP, 1$ 
#3, MSG+8 


(RO). RI 
Ri, #256 


i356, ri 


0473 


H 7 
UTILSCHK_CLI 16-Sep-1984 00:48:09 AX-11 Bliss-32 V4.0-7%4 Page 13. 
yOe +850 13-308- 138 9 1 93 YeoRT 2. SRCJUTLCHKCLI.B32;1 ” oe 
Cc oA 1 2$ MOVL. R1, MSG+12 ; 
10 Ab gf a8 i g i} MOVC3 R1. a4(RO), MSG+16 : 
E ?C 0004 CLRO 0_« = ( §P) : | 
43 € 00049 CLRQ. = =(SP) : | 
7E OC Ab 10 C1 0004 ADDL3 #16, MSG+12, =(SP) : 
36 bp PUSHL 6 : | 
.: CLRQ. = SP) : | 
20 AF oF PUSHAB 1088 ; | 
3 po 7 PUSHL #4 : 
7E Fe AB OC 9 MOVZWL MBX_CHAN, -(SP) : | 
7E D4 D CLRL 5isP) : 
8 Of Fe F CALLS #12, SYS$QIOW : 
6 é 6¢ BLBCOsé#S,,:«SS ; 
A 0006 MOVZBL 10SB, S$ : 
oo EB 00068 pips ss S,-4$ ; 
DD 0068 3$ PUSHL : 
E D4 00060 CLRL = =(SP) : 
00000000* 8F oD O06F PUSHL #<<CLI$_FACILITY@16>+4532> : 
67 93 FB 000 3 CALLS #3, LIBSSIGNAL 3 
E 7C 00078 4$ CLRO 0 _ = §P) : 
7E 7C OOO7A CLRQ = F 
7E 0110 BF 3¢ O007C MOVZWL #272, =(SP) : 
« DD 0081 PUSHL R6 ; 
—E 7¢ 0085 CLRQ. = =( SP) : 
24 AE OF 0008 PUSHAB 10SB : 
31 bp 0088 PUSHL #49 : 
7E F4 Ab 3C OOOBA MOVZWL MBX_CHAN, -(SP) : 
7E D4 0008 CLRL = ; 
g¢ FB 000 CALLS #12, SYS$QIOW : 
07 0 f 0009 piac—Ors S,«“§$ : 
50 04 Ar A 90096 MOVZBL 10SB, $ : 
i) 50 €8 OO09A BLBS ss SS, 6$ : 
50 DD 00090 5S: PUSHL § : 
7E D4 OO09F CLRL. = (SP) : 
00000000" 8F DD O00A1 PUSHL #<<CLI$_FACILITY@16>+4532> ; 
67 03 FB OO0A7 CALLS #3, LIBSSIGNAL ; 
03 66 D1 OOOAA 68: CMPL MSG, # : 
1 le OAD BNEQ = 7$ ; 
7E 04  A6 10000000 ar C9 OOOAF BISL3 #268435456 MSG+4, =(SP) : 
000000006 00 1 FB 00088 CALLS #1, SYSSEXIT : 
14 11 O00BF BRB : 
04 66 D1 000C1 7$ CMPL MSG, #4 : 
6 1 C4 BNEQ : 
03 08 Ag > C6 CMPL MSG+8, #3 ; | 
CA BEQL 486-9 : | 
00000000* 8F DD OOOCC Bs: PUSHL &#<<CLI$_FACILITY@16>+4388> : 
67 1 Ff D CALLS #1 LIBSS1GNA : | 
52 04 i p 2 9$: HOV " 64, STATUS : | 
50 69 96 000DB 108: MOAB CL ISNEXT_QUAL, RO : | 
1 D BNEQ : 
52 0110 C6 9A O00E MOVZBL FIRST, STATUS : 
011 ¢ 94 000E CLRB FIRST : 
6 11 OO0E BRB 12$ : 
9 FA QOOOEB 118: CALLG (AP), CLISNEXT_QUAL : 
‘ 09 MOVL RO, §TATU ; 
| D F1 12% MOVL STATUS, R : 


04 000F4 RET 


UTILSCHK_CLI 15-50 Sep-1 7:48:09 AX-11 Bliss-32 V4.0-74 P 14 
v04-000 et 7 9¢: ‘8: H SORT 2.SRCIUTLCHKCLI «8 2;1 — a 
; Routine Size: 245 bytes, Routine Base: S$CODE$ + 0228 | 


7 
ua pugene ck 1b-Sep p= 94 9: $8: 9? AX-11 Bliss-32 V4.0-74 Page 15 


14- SORT32.SRCJUTLCHKCLI.B32;1 (7) 
3 304 74 1 KEYWORDMACRO 
; 5 75 1 SCRECHK ( 
: 7% 1 PIDADR=0, IMAGE=0, INPUT=0, OUTPUT =0, ERROR=0, PRVADR=0, 
: 77 1 QUOTA=0, PRCNAM=0. BASPRI=6, UIC=0 ABXUNT=0, STSFLG=0, 
; 28 1 FLAGS=0, RSTMODE=0, ASPRISO PAGF IL 
: m 0479 1 BEGIN 
: 310 m 0480 1 MACRO 
: 311 m 0481 1 F_(xX) = 
; ig Mm 04 ¢ 1 MIF XCTCECX) 
: 1 Mm 04 1 ZTHEN 
3 1 : ¢ : ZIF X NEQ O 2THEN ZERROR('Error in $SCRECHK') %FI 
: 18 c 1 SE 
: 31 M0487 1 (IF CHKSCRECHK NEQ 0 THEN X ELSE .X) 
: 318 M 8 1 yFouot E %; 
: 319 wa 1 EXTERNAL’ RO INE 
: 320 m 0490 1 SECREPRES ADDRESSING -RODE (GENERAL) , 
: 1 m 0491 1 CHKSCRECHK: ADD RESSING “MODE (GENERA 
: : m 0492 1 (IF CHKSCRECHK NEQ 0 THEN CHKSCRECHK ELSE aero 
: m 0493 1 (PIDADR, IMAGE, INP OU t, E 
: 324 M0494 1 QUOTA, (BA hgpriy (UIC), PUMBXUNT) , F_(STSFLG) 
; 325 m 0495 1 F_(FLAGS), RETHODE. EXTStAL “PAGFIL 
; $ ™M Beoe 1 
: 0497 1 END 2%; 


UTILSCHK CLI 16s ; 4 00:4 AX-11 Bliss-32 V4.0-74 
* “ep = t iy Pa! aed 
vO4=000 122888 Sep 21382 98: 18: 83 SORT32. Srei UTLCHKCL1.B52;1 
ROUTINE CLI >the 
{RAGE ~AP REF SBBLOCK 

= 


498 1 
1 
1 
BEGIN 
Create a checkpoint subprocess and field it's requests. 
RACRO 
STR_INPUT = *SYSSINPUT' % 
STR “ouTPUT = = 'SYS$OUTPUT’ &, 
5 STR_ERROR = "SYSSERROR' %; 
2 MACRO 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 


aiats +3 2 ali = SBBLOCKCOSC$C_D_BLNI 


PRCNAM: Sa § BLN), 
STATUS; 
First create the communication mailbox 
init MBX); 
Get the names of system input/output/error logicals 


BEGIN 
MACRO 


PPA MUTIUIVA EE 


o cs 
WN“ OC OCONOUE WN “OOO NOU 


NOU EWN OS ODNA NE WIN $ O OONOU EWN SC ODNAUE WI 


SS 
OUNT(X)) 
G 


Kickoff subprocess 
art FROM 1 TO 255 DO 


LOCATION(BUFFER), BUFFERCBASE_)); 


SERNAME) BUFFERCBASE_ J, PRCJPICDSC$W_LENGTH), 
RIB), BASPR 


FUP EB BB BB EE AANA AAAI PINOPINONININIPIDN 2 OO Ot oO 


FW — OOOO UE wt Oo 0O@ 


vw 
vw 


LS —————— 


17 
(8) 


Page 


a ERCIUTLCMRELT B82; 1 


ett eh =32 V4.0-74 


SOR 


9 
6 


7 
Sep=198e 19:10:5 


16= 
1 - 


a 


“ 


*s. 
Ln) 
ox 
~~ 
- 0 
2 
- ws *. 
vo —_ 
ae “aw 
zs -—D> 
A oe 
mw x 
ew _— 
wa mm 
ew te 
2-4 w 
-—a ” 
o-7 zo 
aw @ 
x Js «© 
<Q +s —a 
arm ao 
~~ « el: 4 
we wi wae 
a eww 
wiz anrZz 
-—a- >= > 
awo ww 
“=r G. +e on. 4 
wz =x 3 
t+ te 4 4 wtz 
aOoew NNnA 
AUN -— 
hu *s=5 @ez 
<=xop> on eT. 
MmAWUD n= UM 
xXrvew we aut 
-“waA2 YIZ~K~vV 
von~o <5DV WU 
Zu Q--a<aao 
woe 4 O2@O 
jaact aw 9 z 
mm wow wet op w 
“Bw oO .- TW = 
~AaGio we = <« - 
rw 5 oe 2ze re 
ow -AaA< @aacvuanw 
wo Eeoes OZDW -~ 
Rew OO te wr = oO 
Vw nu Qa www 8 = 
jaa ime &£&oO 
=~ mr eas . 
KV2TtIrmweea2ZzFD Aa A 
SW We Mow = ~ 
axrtvvavr2wowrt Pea iw 
eh 22> a-O mt: we 
oOo ~~ Wwe JOMW = x= 
Kran j1IjOov8~Evew ve 
umva t41t1t OdrZw -— 
at .-22a885~< -aAgck — 
YVZZa~RA Auvitwvin FB 
Pwr JZIVVVVVSREe THE HNYM 
We "AIM Aww Ouse 
u<Ooaoaoo tl . uo 
Aw " os. 
Ine Yn &- Nee 
vra. 2 Om >a—<7 
ven —- Z20r- 
" VUVUVUUd"d <q< 
ececaeagre «ir 
Qa--QO00004 —uwm 


DOP DRO K— WNT NOP DOO UM TMNOR- DAO CIM TN OR. NIT AOR. COO 
WIAA D DDO DD ODOR PLR ARR OOO DOH DOOR AO OKOO AO ROO 
DDDAAADALALVAVALVULVLVLVUAVLVLVELVELVLVELVLVLVELVELV LVL LULU UD LED OO 
COOOOOOOOOSOSOOSOOSOOSOSSSSSSSOSSOSSOSSOSSSOSSOSCSOSSOSCOO 


aaaaqagaqaaaaaaaaaa 


- STATUS); 


, IHX$T_IMGNAM); 


HDADRI 
_SHR_SYSERROR, 0, 


SIGNAL(CLIS_SPAWNED, 1, PRCNAMCBASE_J); 


IMAGE_APCCLISA_IMGFILEDJ,1FD$Q_CURPROG), 


UPLNAM THEN EXITLOOP; 


MBX UNIT); 
5 


»STATUS NEQ SS$_ 


quest 


$BBLOCK 
-MSGCMSG_L_LEN); 


quest 


); 


MSGCMSG.L_IDJ] EQL MSG$_DELPROC 


VECTORC2); 


( 


RETURN .MSGCMSG_L_STS] OR STSSM_INHIB_MSG 
-MSGCMSG_L_ID] NEQ MSG_K_CHKCLI 
SIGNAL (CLIS_SHR_BADLOGIC); 

! Field the re 


ZELSE 


D: 
' Read a re 


' 
MBX_GET 


IF NOT .STATUS THEN RETURN SIGNAL(CLI$ 


D[0) = 


2 
pee} 
= 
— 


IF 

WHILE TRUE DO 
BEGIN 
LOCAL 
IF 


On VUMTNHOR. NTO OPR UMN TNOP 


vwvwvwvwvwvwvwvwvrev sree 


4 
INFO#250 L1:0586 
; Referenced LOCAL symbol BASPRI is probably not initialized 


UTILSCHK_CLI 1 so 1984 00:48:09 AX=11 Bliss-32 v4.0-74 P * 
e -ep- : : pal ss- e 

vita tt eae a ee a Pe a og reer oo a a) 

5 443 1 DC1] = MSGCMSG 

3 466 ei8 CASE SMSGERSG.L “RaSt) FROM 1 10 3 OF | 

44g 615 3 ths x cer _VALUE): | 

: 468 ei$ 4 Reine L_STS] = CLI GET. VALUE (DEO, DYNCBAS EA}? 

> 449 618 4 CHSM SROVETHSCEASG L LER) = RIN CH $G_K_TEXT, Anen pécsw_ LENGTH), 

430 619 4 : ps DYNEDSCSA. POINTER], MSGLMSG_A_TXTJ): 

: 438 Oe 3 CMSG_K PRESENT): 

> 454 4 MSG(M T 

: 38 i 4 Hae L_S STS} = cul PRESENT(DL0]); 

; 437 06 6 3 CMG, REXT. QUAL): 

: 459 0628 4 mest 5 & STs = CLI_NEXT_QUAL(DL0}); 

Be Be G «ema ais 

: 462 0631 COUTRANGE): 

3 463 063¢ RETURN SIGNAL (CLI$_SHR_BADLOGIC); 

: 465 0634 : 

: 466 0635 ! Send the response 

> 467 0636 i 

: 468 0637 MBX_PUT_(,); 

: 29 0639 5 _— 

: 471 0640 2 RETURN SS$_NORMAL; 

: 672 0641 3 


-PSECT S$PLITS,NOWRT ,NOEXE ,2 
AA: .ASCII \SYSSINPUT\ 


54 55 50 4€E 53 59 53 00000 P.A ; 
54 55 50 54 55 4F 24 53 59 23 00009 P.AAB: .ASCII \SYSSOUTPUT\ : 
52 4F 52 52 a 4 bed P.AAC: .ASCII \SYSSERROR\ : 
a, 0040 QO01C P.AAD: .WORD 64, : 
00000000 00020 - LONG 8 : 
0000000 00024 - LONG : 
0309 Be8e 0028 WORD 4, 777 : 
vat aot 00000000 00000000 0002C - LONG 0, 0, 0 : 
oe 33 6) 3 33 41 at o6 ; P.AAF: tt gras : 
sit 4 94 0040 P.AAE: .LONG 7 3 
0000000° 00044 -ADDRESS P.AAF : 

~EXTRN SVSS6ET JOIN. SYSS$FAO 

-EXTRN SYSSCREPRC 


“WEAK — CHKSCRECHK 
.PSECT $CODES,NOWRT,2 
OFFC 00000 CLI_CHECKPOINT: 


N 7 
UTILSCHK_CLI 16-Sep-1984 00:48:09 AX-11 Bliss-32 V4.0-74 Page 19 
V04=000 eRe) Tak oe a CP eh hd Th ea eS oe a) 
.WORD Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 : 0498 
£5899 G 00 9E 9900 OVAB STRSCOPY_R. RII .% 

G gE MOVAB LIBSSIGNAL, R R10 : 

P Pe ee EE SE BOD MOVAR  aOL(SP). SP ; 
5C AE 020E000 iF 06 OO1A MOVL wear i936, DYN + 0519 
54 AE 0206008 eF D0 09 HOVL #6471936, INPUT : 0520 
4C AE 0206000 8F DO 00030 MOVL § #34471936, OUTPUT + 0521 

AE D4 00038 CLRL QuTP T+4 : 
44 AE 0200000 BF 00 00 : MOVL #344 1936, ERROR + 0522 

48 AE D4 0004 CLRL = ERROR+4 : 
0000v CF 00 FB 00046 CALLS #0, INIT_MBX + 0528 

0000' CF 9F 00048 PUSHAB P.AAA : 05 

04 AE 69 00 0004F MOVL #9 ASP) : 

04 AE 9F 00053 PUSHAB 4 (Sp P) : 

SC AE OOF 90096 PUSHAB InP : 

68 03 FB 00059 CALLS #3 UE TRSCOPY_R : 
0000" CF 9F 0005¢ PUSHAB P. + 0538 

04 AE OA 00 00060 MOVL #10, 4(SP) : 

04 AE 9F 00064 PUSHAB 4(SP) : 

54 AE 9F 00067 PUSHAB QuTPUT ; 

6B 03 FB OO06A CALLS #3, STRSCOPY_R : 
0000' CF 9F 0006D PUSHAB P.AA + 0539 

04 AE 09 DO Bone MOVL #9, 4(SP) ® 

04 AE 9F 00075 PUSHAB 4(§P) : 

4C AE 9F 00078 PUSHAB ERROR : 

6B 03 FB 90078 CALLS #3, STRSCOPY_R ; 
54 AE 9F 0007 PUSHAB INPUT : 0540 

0000v CF 01 FB 0008 CALLS #1, GET_SYS_LOG : 
4C AE 9F 00086 PUSHAB OUTPUT + 0541 

0000v CF 01 FB 00089 CALLS #1, GET_SYS_LOG F 
44 AE 99F OO08E PUSHAB > 0542 

0000v CF 01 FB 00091 CALLS #1, GET_SYS_LOG : 
56 04 AC dO 00096 MOVL IMAGE_AP, R& + 0586 

58 1 DO 0009A MOVL #1, I F 
4 AE 40 8F 9A 0009D 1$ MOVZBL #64, PRCJPI : 0550 

8 AE 64 AE 4 OO0A MOV BUFFER. PRCJPI+4 ; 

18 AE 0000' CF 1€ 28 OOOA MOVC3 #28, P.AAD, ITMLST > 0554 
1¢ AE 64 AE SE OOOA MOVAB BUFFER, ITMLST+4 : 0552 
20 AE 34 AE 9E 000B MOVAB PRCJPI. ITMLST+8 ; 

28 AE 08 AE 9E 00088 MOVAB BASPRI. ITMLST+16 : 
7E 7 OOBD CLRQ = =( SP) : 0558 
7E D4 OOOBF CLRL ss : 
24 AE 9F 000C1 PUSHAB ITMLST : 
7E 7C 000C4 CLRQ = =(SP ; 
4s D4 O0¢6 CLRL = = (SP) F 
000000006 99 ’ FB OC CALLS #7, SYSSGETJPIW : 
0 CF MOVL R U : 
38 =o 34 «AE ; A Oe LOCC #32, PRCJPI, @PRCJPI+4 : 0559 
2 0000 BNEQ 23 : 
> D4 OOODA CLRL sR : 
1 D3 DC 2%: TSTL =P + 0560 
08 1 DF NEG 3% : 
51 34 AE 3 E MOVZ2WL PRCJPI, P : 
1 8 AE CO O00E4 DDL2 PRCJPI+4, P : | 


2 
UTILSCHK_CLI 1 -Sep- :48:09 AX-11 Bliss-32 V4.0-7 Page 20) 
v04=000 ene e= The PSi388 MRT Pk isgi32 Me .0T The ve of 
34 OA 51 38 AE A3 OOOES 3S: SUBW3 PRCIPI +4. P, PRCJPI : 0561 
3¢ AE 40 «BF 9A : MOVZBL #64, PRCN : §36 
40 AE 64 AE E OOOF OVAB BUFFER, PRCNAM+4 : 056 
Q pb F PUSHL | + 0567 
38 «=AE «OOF OOOFA PUSHAB PRCJPI : 
44 AE 9F OO0FD PUSHAB PRCNAM : 
48 AE 9F 0010 PUSHAB PRCNAM : 
0000" CF 9F 0010 SHAB  P.AA : 
000000006 99 05 FB 0010 CALLS #5, SYSSFAO : 
5 : D 108 MOVL RO, STATUS ; 
03 5 E 011 BLBS STATUS, 4$ > 0568 
0087 31 00114 BRW 14$ : 
04 AE 5 DO 00117 4$ MOVL #5, FLAGS + 0569 
50 000000006 9E 00118 MOVAB  CHKSCRECHK, RO + 0586 
52 D4 001 CLRL = R2 ; 
5 D3 00124 TSTL RO ; 
08 13 001 6 BEQL 46s S$ : 
2 D6 001 INCL —R2 : 
50 000000006 00 H 01 A MOVAB CHKSCRECHK, RO : 
50 000000006 00 9€ 00133 5$: MOVAB  SYSS$CREPRC, RO : 
7E 7C 0013A 6$: CLRQ  =(SP) ; 
7E D4 0013C¢ CLRL  =(SP) ; 
08 52 £9 0013E BLBC ~=_- R2,_ 7$ : 
51 10 AE 9E 00141 MOVAB FLAGS, R1 : 
51 DD 00145 PUSHL R ; 
03 11 00147 RB BS ; 
10 AE DD 00149 7$: PUSHL FLAGS ; 
43 D4 OO14C 8$: CLRL.  =(SP) : 
08 52 £9 OO14E BLBC = R2, 9S ; 
51 F8 AS SE 00151 MOVAB MBX_UNIT, R1 : 
51 DD 00155 PUSHL RI : 
03 11 00157 BRB 10$ : 
F8 AD DD 00159 9$ PUSHL MBX_UNIT ; 
7E D4 0015C 10$ CLRL. (SP) : 
08 52 £9 0015E BLBC R2, 118 F 
51 24 AE 9E 00161 MOVAB BASPRI, R1 ; 
51 DD 00165 PUSHL 1 : 
03 11 00167 BRB 12$ ; 
4 AE po 00169 11$ PUSHL BASPRI : 
C AE 9F 0016C 12$ PUSHAB PRCNAM : 
7E 7C OO16F CLRQ = =(SP) : 
70 AE 9F 00171 PUSHAB ERROR é 
7C «=AE OOF 0174 PUSHAB OUTPUT ; 
BO AD 9F 00177 PUSHAB INPUT : 
7E 10 Ab 14 1 O17A ADDL3 #20, 16(R6), -(SP) : | 
48 AE OF O017F PUSHAB : 
60 10 FB 0182 CALLS #6, (RO) ; 
57 50 DO 0018 MOVL RO, STATUS : 
00000094 ~~ BF 37 D1 a8 CMPL STATUS, #148 > 0587 
FFO2 58 01 000000F F a F1 00191 ACBL #255, #1 1$ + 0547 
OE 7 €8 00198 13$: — BLBS STATUS, {5$° : 0589 
37 DD O19 14$: | PUSHL STATUS ; 
E D4 OO1A CLRL. = = (SP) ; 
00000000* er DD BIA PUSHL ests FACILITY@16>+4532> 3 
6A 3 FB OOIA CALLS LIBSSIGNAL ; 


EEE eS, eR EEE EES ay 


: 
R 
UTILSCHK_CLI 1b-se -1984 00:48:09 AX-11 Bliss-32 V4.0-74 Page 21. 
v04=000 1 ~ep-19 4 90:48:92 SORT32.SRCIUTLCHKCLI .B 2;1 . By 
04 001AB RET ; | 
3¢ =O AE sO9F «<OOIAC 158 PUSHAB PRCNAM + 0590! 
1 DD OO1AF PUSHL #1 : | 
000000006 8F DD 00181 PUSHL #CLI$_SPAWNED : 
A 3 FB 001B7 168: CALLS #3, LYBSSIGNAL : 
E 7C OO1BA 178: CLRO 0 _ = ( §P) + 0600 
7E 7C 001BC CLROQ ~ (SP) : 
7E 0110 BF 3C 001B MOVZWL #e 2, -(SP) : 
9 DD O1C PUSHL R : 
E 7C 001¢ CLRQ.  =(SP) : 
30 AE 9F 001C PUSHAB 10SB : 
31 pp OiCA PUSHL #49 : 
7E F4 0 5 Bice oot age MBX_CHAN, =-(SP) ® 
000000006 00 OC FB 90102 CALLS #12, SYS$Q10W : 
07 50 E9 01D BLBC j ; 
50 10 Ar A 0010¢ MOVZBL I10SB, S ; 
OD 2 E8 OO1E9 BLBS = S,_-19$ ; 
0 DD OO1E3 18$:  PUSHL § ; 
7E D4 OO1ES CLRL. =(SP) : 
00000000* 8F DD OO1E PUSHL #<<CLI$_FACILITY@16>+4532> : 
6A 03 FB OO1ED CALLS #3, LIBSSIGNAL F 
03 69 D 001F0 19$: CMBL MSG, #3 + 0601 
50 04 a9 10000000 &8F c9 a0i5 BISL3 #268435456, MSG+4, RO > 0603 
04 69 D1 OO1FF 20$:  CMPL MSG, #4 > 0605 
09 13 00202 BEQL 21$ ; 
00000000* 8F Dd 00204 PUSHL #<<CLI$_FACILITY@16>+4388> + 0607 
6A 01 FB O020A CALLS #1, LIBSSIGNA : 
34 AE OC AY DO 0020D 21$:  MOVL MSG+12, D > 0611 
38 OA 10 Ad 9E 00 iF MOVAB MSG+16, D+4 : 061 
02 01 08 a9 CF 0021 CASEL MSG+8, #1, #2 : 061 
0045 0038 0010 0021C 228: . WORD 355° 958.- : 
6$-228° : 
00000000* 8F DD 00222 PUSHL #<<CLI$_FACILITY@16>+4388> > 0632 
6A C1 FB 00228 CALLS #1, LIBSSIGNAL : 
04 002 B RET : 
5C AE 9F 0022C 23$: | PUSHAB DYN + 0617 
38 =6AE OOF O020F PUSHAB D : 
FBOE CF 02 FB aa CALLS #2, CLI_GET_VALUE ; 
04 A9 5 b0 ke VL — RO. MSGF4 : 
50 SC Ar C 6 38 MOVZ2WL DYN, > 0618 
0100 8F 50 al F Pu —s« RO, #256 : 
5 1B 00244 BLEQU ; 
50 0100 8F 3C 00246 MOVZWL #256, RO : 
oc Ag 0 DO 00248 24$:  MOVL RO, MSG+12 ; 
10 a9 60 BE 0 <8 O24F MOVC3 RO. @DYN+4, MSG+16 : 0619 
19 11 0 25 BRB 28$ : 061 
34 AE OF 25$:  PUSHAB D : 062 
FBD1 CF 01 FB 00 3A CALLS #1, CLI_PRESENT ; 
8 11 F BRB 27$ ; 
34 AE 9F 00261 268:  PUSHAB D > 0628 
FCA2 CF : FB 64 CALLS #1, CLI_NEXT_QUAL : 
04 Ad 9 D 69 27$: OVE RO nscr4 : 
| 0c AD D4 0026D CLRL = MSG +1 : 0629 


UTILSCHK_CLI 1b-se $ep-1984 00:48:09 AX-1 4.0-7% Pp 2 > 

vite eet) Tak Set a PE ee hd Mh ae ae PP age $5 
fe oe 2 went oR Bee) Banead 

7E Oc a9 If tf 7 ADDL3 #16, MSG+12, =(SP) : 

; bo 79 PUSHL R9 : 

— 7C 00e7B CLRQ. = =(SP) : 

34 AF 9F 00270 PUSHAB 1058 ; 

3 po PUSHL #4 : 

7E FL OAD 3 MOVZWL mx SHAN. -(SP) : 

7E 04 CLRL (SP) : 

000000006 00 gf FB CALLS #12, SYS$QIOW : 

0 -— - BR s Se Set $6695, ; 

88 af 9 i BLBC Ss § Bés° ; 

FFig 1 BRW 17$ : 

Fe bn O0S8E ect RY Sp) 

00000000* 8F oD 00 Hi PUSHL #<<CLIS_FACILITY@16>+4532> : 

FFOE 31 0026 BRW 16$ : 


; Routine Size: 681 bytes, Routine Base: S$CODE$ + 0320 


WIRSSSSSSSSSSSSSSSSSSSSSSSSSSSESS !1F 


7F | 


UTILSCHKCLI iiss w$ep-198e 19:10:56 USonts2esnesuttcncee 1-892; 1 Pear 6) 


> 474 643 1 ROUTINE GET_SYS_LOG( 
: 675 431 DSC? REF SBBLOCK(DSC$C_D_BLNJ 
: 47 “a 7 ): NOVALUE = 
: 67 645 BEGIN 
: 47 646 LOCAL 
: 47 64 STATUS: 
: 480 648 STATUS = LIBSSYS_TRNLOG(DSCCBASE_J, 0, DSCCBASE_}); 
> 481 64 IF NOT .STATUS TREN RETURN SIGNAC(CLI$ SHR SYSERROR, 0, .STATUS); 
: 48 $0 IF CHSRCHAR( .DSCLDSCSA_POINTER]) EQL ZR" 1B" ! Escape? 
: 684 6 : STRSCOPY RCDSCCBASE j 
; 485 6 UREFT.DSCCDSCSWILENGTHI-4), .DSCCDSCSA_POINTER]+4); 
3; 4 654 END; 
0004 00000 GET_SYS_LOG: 
-WORD Save R2 3; 0642 
5E 04 ¢2 0000 SUBL2 #4, SP : 
2 04 AC DO 0000 MOVL DSC, R2 + 0648 
3 DD 00009 PUSHL R2 ; 
D4 00008 CLRL. = =(SP) ; 
52 DD 0000D PUSHL : 
000000006 09 : Fe 0000F CALLS #3, LIBSSYS_TRNLOG ; 
1 E 0016 LBS STATUS, 1$ + 0649 
30 DD 0001 PUSHL STATUS : 
E D4 00018 CLAL SP) : 
00000000 8F DD 9010 PUSHL  #<<CLI$ EACILITYA16>+4532> F 
000000006 00 03 FB 000 CALLS #3, LIBSSI F 
04 0002A RET : 
1B 04 82 1 00028 1$: CMPB = @4(R2), #27 : 0650 
19 12 0002F EQ ; 
7E 04 A2 04 cI 0031 ADDL3 #4 4(R2) -(SP) : 0653 
04 AE 62 3¢ 000 MOVZWL (Re) (SP) ; 
06 AE 04 C2 0003A SUBL2 hcgp) ; 
04 AE SF OO03E PUSHAB o( in ; 
52 DD 00041 PUSHL > 0652 
000000006 00 03 FB 00043 CALLS , STRSCOPY_R : 
04 0004A 2$: RET > 0654 


; Routine Size: 75 bytes, Routine Base: S$CODE$ + 05C9 


, 
F 8 

UTILSCHK_CLI 16-Sep-1984 00:48:09 AX-11 Bliss-32 V4.0-74 Page 24 

voueooo 192808= 1382 90:15:93 SORT32.SRCJUTLCHKCLI.832;1 . 185 

; 488 655 1 ROUTINE INIT_MBX: NOVALUE = 

> 489 6 8 BEGIN 

; 490 ? MACRO 

> 491 3 STR_LOG_1 = SELL i, $]R-t06.¢ edt 

; 49 STR-DEV-1 = "_MBA’ 7 STRIDEVe = ':" &; 

; 49 60 LOCAL 

; 494 61 PID: INITIAL(O); 

; 495 $6 LOCAL 

3 +38 6 ITMLST: VECTORC4) INITIAL(ZALLOCATION(PID), PID, 0, 0); 

; 49 0664 LOCAL 

; 498 665 LOGBUF: S$BBLOCKCZCHARCOUNT(STR_LOG_1,STR_LOG_2)+8 

; 499 298 : DEVBUF: S$BBLOCKEZCHARCOUNT(STR~DEV-1,STR DEV 2) #10) 

3 200 66 LOGNAM: $BBLOCK 8 INITIAL (ZALCOCATION(LOGBUF), LOGBUF BASE_J). 

3 01 098 : DEVNAM: $BBLOCK INITIAL(ZALLOCATION(DEVBUF), DEVBUFCBASE_J), 

3 206 R08 STATUS; 

$ 20 0670 BIND 

; Be 897) ITMLST_W = ITMLSTCOJ: VECTORC WORD); 

: 2 0678 ! Initialize the message area 

; 50 0674 : 

; 208 bere MSGCMSG_L_ID] = MSG_K_CHKCLI; 

: 510 0679 ! Get job process information for constructing a logical name. 

3 ST) 0678 ' Get the job process id (main process) 

3 \¢ 944 Get the owner process id (subprocess) 

: 514 0681 ITMLST_WC1) = (IF NOT .CHK_SUBP THEN JPI$_PID ELSE JPI$_OWNER); 

3 319 P ¢ STATUS = SGETJPIW( 

3 318 P 068 FN = 0 

; 51 0684 ITMLST = IfMLSTCO)): 

; 318 pes? IF NOT .STATUS THEN RETURN SIGNAL (CLIS_SHR_SYSERROR, 0, .STATUS); 

: : O68? : Form mailbox logical name 

..¢ : p 0689 STATUS = SFAOCSDESCRIPTOR(ESTRING (STR LOG_1,"!XL",STR_LOG_2)), 

’ > 90 $W_LENGTH], LOGNAMCBASE-J, .PIDS; 

; § 4 91 IF NOT .STATUS THEN RETURN SIGNAL(CLI$S_SHR_SYSERROR, 0, .STATUS); 

: 3 $ 38 ! Create the mailbox (main process) 

5 ; Be Access the mailbox (subprocess) 

; 5 P 069% STATUS = SCREMBX( 

3; 3 P 069 C = MBX_CHAN 

; 3 1 P 98 MAXMSG = ZALCOCATION(MSG), 

; § LOGNAM = LOGNAM(BASE )); 

; 5 700 If NOT .STATUS THEN RETURN SIGNAL (CLI$_SHR_SYSERROR, 0, .STATUS); 

; ; 5 , § The subprocess doesn't need the unit number 

3 204 if .CHK_SUBP THEN RETURN SS$_NORMAL; 

: 335 A : Get the unit number, needed to specify the termination mailbox. 

: $41 7 itm ste) = DVIS_UNIT * 16 * ZALLOCATION(MBX_UNIT); 

3 4g 7 ITMLSTC1) = MBX_ONIT; 

: 4 P 0710 STATUS = SGETDVTW( 


1$-sep-1984 90:48:09 YAKeTL BLingcsz ve.0c74e. 


Un pLReNK. CLI 


; 545 P 071 = .MBX_CHAN 

: $4 71 ITMLST = ITMLSTCOJS; 

; 4 ay IF NOT .STATUS THEN RETURN SIGNAL(CLI$S_SHR_SYSERROR, 0, .STATUS); 
: 54 716 END; 


-PSECT SPLITS,NOWRT,NOEXE,2 


00000000 09000000 sposeoo% ane 2. sf 
4C 58 21 SF 9 4C 9 $900, 48 wry 099 905 P.AAL: “ASCII \EHKSCLI_ !XL\ 
00000008 00064 P.AAH: :LONG 11 
00000000" 00068 “ADDRESS P.AAI 
.EXTRN SYSSCREMBX, SYSSGETDVIW 
.PSECT $CODE$,NOWRT,2 
007C 00000 INIT_MBX: 
.WORD Save R2,R3,R4,R5,R6 
56 0000" CF 9E 0000 MOV CHK_SUBP, R6 
5E ¢8 C2 0000 SUBL2 #407 SP 
E D4 OOO0A CLRL. PY 
1c AE 0000" CF 10 28 9000¢ MOVC3 #16, P.AAG, ITMLST 
20 AE 6 4 0001 MOVAB PID. ITMLS ST+4 
04 AE 10 DO 00017 MOVL #16 
08 AE OC AE 9E 0001B MOVAB LogéuF LOGNAM+4 
04 AG 04 00 00020 MOVL #4, 
07 66 ES 999 4 BLBS CHK SUBP . 1$ 
50 0319 8F 3C¢ 00027 MOVZWL ee 
05 11 000 C RB 
50 0303 8F 3C 0002 1$ MOVZWL 
1€ AE 50 80 0033 2$ OVW RO, Vereest _W+2 
7E 7C 000 CLROQ (§p) 
7E D4 00039 CLRL ~(3p) 
28 AE 9F 000 PUSHAB ITMLST 
7E 7C 000 CLRQ = =( SP) 
re D4 0004 CLRL = = (SP) 
000000006 ‘ FB 0004 CALLS #7, SYSSGETJPIW 
9 DO 0004 MOVL RO STATUS 
6 a Oo4¢ LBC STATUS, 3$ 
6E DD 0004F PUSHL PID 
8 AE 9F 00051 PUSHAB LOGNAM 
C AE i 054 PUSHAB LOGNAM 
0000" CF 9F 00057 PUSHAB P.AAH 
000000006 99 4 F CALLS #4, SYSSFAO 
D MOVL RO. STAT $ 
LBC _— STATUS, 
fF PUSHAB LOG 
¢ CLRQ. = =( SP) 
4 CLRL = {SP 
C F MOVZWL #272, -(SP) 
F 4 PUSHAB MBX ¢ 
D4 00077 CLRL = = (SP 


P09e 183 


0684 


H 8 
UTILSCHK_CLI 
voacoo0 = 12-88 
000000006 9 3 4 79 
: 
e 8 
f AE 000C0004 F 
2 AE FC A6é 9E 1 
7E 7C 38 
7E 7C 9 
2c ae 44 A 
7E F8 he Re OF 
7E D4 7 
000000006 98 F A 
of 838 
11 E ita 
dD pee 3$: 
00000000* oF S $086 
000000006 00 03 FB 000B¢ 
04 000C3 4$: 
; Routine Size: 196 bytes, Routine Base: S$CODES + 0614 
: 550 0717 
3 32) 0718 1 END 
; 552 0719 0 ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes 
: SOWNS 5 NOVEC, WRT, RD ,NOEXE,NOSHR, 
; SCODES 1983 NOVEC ,NOWRT, - _EXE,NOSHR, 
; SPLITS 108 NOVEC,NOWRT, RD ,NOEXE,NOSHR, 
: Library Statistics 
: Sac eeeae Symbols wees ne 
: File Total Loaded Percent 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 37 0 


; Information: 1 
3; Warnings: 
; Errors: 


35p=198s 99:78:92 


AX-11 Bliss-32 V4.0-74 
SORT32.SRCJUTLCHKCLI.B52;1 


CALLS #7, SYSSCREMBX 
MO AT 


VL RO, ST 
BLBC = STATUS 
BLBS CHK : P, 4$ 
MOVL #786456, ITMLST 
MOVAB MBX_UNIT, ITMLST+4 
CLRO -(SP) 
CLRO -(SP) 
PUSHAB ITMLST 
CLRL =(SP) 
MOVZWL MBX_CHAN, -(SP) 
CLRL -(SP) 
CALLS +e SYSSGETDVIW 
MOVL RO, STATU 
LBS STATUS, 4$ 
PUSHL STATUS 
CLRL -(SP) 
PUSHL #<<CLI$_FACILITY@16>+4532> 
CALLS #3, LIBSSIGNAL 
~EXTRN LIBSSIGNAL 
LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, CON NOPIC.ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 
Pages Processing 
Mapped Time 
1000 00:01.9 


0714 


0716 


RO 


bi eh Seales 


8 
vou-000 ~ 1ESe9Ee QR:4B: 02 YASUE Bane Mts 05 782 Poe 16) 


’ COMMAND QUALIFIERS 
H BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:UTLCHKCL I /0BJ=OBJ$:UTLCHKCLI MSRCS$:UTLCHKCLI/UPDATE=(ENHS$:UTLCHKCLI 
: Run Ti : ¥ 

; Elapsed Time: 1:45.8 

; Lines/CPU Min: 141 

; ne 30690 

3 Y Used: 240 goose 

; _ ation Complete 


| 
Size: "% 9 e + 393 data bytes 
Time: en 
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